﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>

<%
id=request("id")
ids=session("myid")
%>
<card title="接受挑战">
<p>
<%
set rsppp=Server.CreateObject("ADODB.Recordset")
rsstr="select * from tz where id="&id
rsppp.open rsstr,liao,1,2
lid=rsppp("lid")
   rsppp.close
set rsppp=Nothing
set rssx=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rssx.open strSQL,liao,1,1
if rssx("ids")=lid then
Response.Write "晕~自己和自己挑战？<br/>难道你是东方不败？<br/>只求一败么？<br/><a href='tt.asp?cc="&cc&"&amp;ve="&ve&"'>回到大厅</a>"
elseif rssx("tl")<=1 then
Response.Write "您只有这么点体力！来送死的吗？<br/>回去补血再来吧！<br/><a href='tt.asp?cc="&cc&"&amp;ve="&ve&"'>回到大厅</a>"
   rssx.close
set rssx=Nothing
else
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from wupin where cstr(ids)="&myid
rs.open strSQL,liao,1,1
tzyz=rs("yz")
   rs.close
set rs=Nothing
%>

<%
set rspp=Server.CreateObject("ADODB.Recordset")
rsstr="select * from tz where id="&id
rspp.open rsstr,liao,1,2
yz=rspp("txt")
if rspp("txt")> tzyz then
Response.Write "对不起！您的银子不够参加本次挑战！<br/>本次需要"&yz&"两银子<br/>您只有"&tzyz&"两，快去赚一点吧！<br/><a href='tt.asp?cc="&cc&"&amp;ve="&ve&"'>回到大厅</a>"
else
name=rspp("name")
tzyz=rspp("txt")
if ids<>"" then rspp("pid")=ids
rspp.Update
rspp.close
set rspp=nothing
%>
成功接受与<br/>
[<a href="/userview.asp?id=<%=lid%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>"><%=name%></a>]的PK!!<br/>
<anchor>开始PK>><go href="sfpk.asp?cc=<%=cc%>&amp;ve=<%=ve%>&amp;t=<%=time%>" method="post">
<postfield name="id" value="<%=id%>" />
</go></anchor>

<%end if%>
<%end if%>


<br/>=========<br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖首页</a><br/>

<%qingtian.shuchu%>

